home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / guides-new-percent.scm < prev    next >
Text File  |  2009-12-15  |  1KB  |  42 lines
  1. ;; -*-scheme-*-
  2.  
  3. ;; Alan Horkan 2004.  No copyright.  Public Domain.
  4.  
  5. (define (script-fu-guide-new-percent image drawable direction position)
  6.   (let* (
  7.         (width (car (gimp-image-width image)))
  8.           (height (car (gimp-image-height image)))
  9.         )
  10.  
  11.     (if (= direction 0)
  12.           (set! position (/ (* height position) 100))
  13.           (set! position (/ (* width position) 100))
  14.     )
  15.  
  16.     (if (= direction 0)
  17.           ;; convert position to pixel
  18.           (if (<= position height) (gimp-image-add-hguide image position))
  19.           (if (<= position width) (gimp-image-add-vguide image position))
  20.     )
  21.  
  22.     (gimp-displays-flush)
  23.   )
  24. )
  25.  
  26. (script-fu-register "script-fu-guide-new-percent"
  27.   _"New Guide (by _Percent)..."
  28.   _"Add a guide at the position specified as a percentage of the image size"
  29.   "Alan Horkan"
  30.   "Alan Horkan, 2004"
  31.   "April 2004"
  32.   "*"
  33.   SF-IMAGE      "Input Image"      0
  34.   SF-DRAWABLE   "Input Drawable"   0
  35.   SF-OPTION     _"Direction"       '(_"Horizontal"
  36.                                      _"Vertical")
  37.   SF-ADJUSTMENT _"Position (in %)" '(50 0 100 1 10 0 1)
  38. )
  39.  
  40. (script-fu-menu-register "script-fu-guide-new-percent"
  41.                          "<Image>/Image/Guides")
  42.